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I. INTRODUCTION 

This application note discusses the implementation of a 
simple communications link between two Intellec Series 
II Development Systems. Such a communications link 
would allow files to be transmitted from one system to 
another, increasing the flexibility of program develop- 
ment on Intellec Systems. 

The hardware and software aspects of constructing a 
communications link between two Intellec Series II 
Systems are described here in detail. An example com- 
munications link is also presented. 



II. HARDWARE CONSIDERATIONS 

The Intellec Series II has a variety of features to 
facilitate the establishment of a communications link. 
The existence of two (2) serial I/O channels allows the 
user the flexibility of having a serial device such as a 
printer, and having the ability to establish a serial com- 
munications link also. 

These Serial I/O channels conform to EIA-RS232C 
specifications in the arrangement of the attention con- 
trol lines. This allows a standard interface, between the 
Intellec System and a corresponding serial I/O device 
such as another Intellec Microcomputer Development 
System. 

The serial I/O channels are driven by Intel 8251 pro- 
grammable communications interface devices, also 
referred to as a USART (Universal Synchronous- 
Asynchronous Receiver-Transmitter). The 8251 
USART is a very flexible device in that it can be pro- 
grammed to operate in a variety of configurations and 
modes. 



III. SOFTWARE CONSIDERATIONS 

Interfacing an Intellec Development System to another 
development system through a serial I/O link requires a 
variety of software. 

The 8251 USART is a programmable device and 
therefore requires specific attention in terms of the 
initialization of the environment in which the USART 
will operate. This initialization includes such things as 
selecting the baud rate and asynchronous or syn- 
chronous mode of operation. 



The idea of transferring files requires the use of some 
sort of file handling software. The ISIS-II operating 
system allows flexible access to all user-files and 
therefore relieves the user of the burden of generating 
file I/O routines. This interface simply takes the form 
of ISIS-II system calls to open, close, read, and write to 
files. 

The interface as seen by the user can also be facilitated 
by the use of ISIS-II system calls. The use of system 
input and output routines simplifies the retrieval of 
commands and the sending of status messages. 

The code necessary to perform the actual transmission 
and reception of data can take on many forms, depend- 
ing on the application. A possible algorithm will be 
discussed with the design example in the following 
sections. 



IV. COMMUNICATIONS 
CONSIDERATIONS 



The ability of the 8251 USART to operate in either 
asynchronous or synchronous mode raises the question 
of which mode is more appropriate for a particular 
application. The main difference is that the asyn- 
chronous mode requires framing information to be 
added to each character, while the synchronous format 
adds framing information to blocks of data. The syn- 
chronous format can transmit large blocks with less 
overhead but requires more complex decoding of the 
transmitted information. The asynchronous mode has 
higher overhead per character but alows for a simpler 
decoding environment. 

As data is sent back and forth from one system to 
another, it requires some sort of organization. The use 
of some type of line protocol (a formal set of conven- 
tions governing the format of message exchange be- 
tween two communicating processes), is necessary to 
facilitate the organization of what is being sent across 
the line, and in which a specific message will require a 
specific response from each computer. This will allow 
for a variety of circumstances to be handled. For exam- 
ple the handling of a data record that has not been 
transmitted correctly or where a data record must be 
remanipulated in some way to be correctly transmitted. 
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Special Communication 
Considerations 

Utilizing the telephone network to connect two remote 
systems is an interesting application. This arrangement 
requires the use of modems for interfacing the Intellec 
Development Systems to the telephone network. 

The Intellec Development System's serial channels have 
user-modifiable jumpers to allow easy hook-up of 
modems. The jumpers for direct hook-up are shown in 
our design example. Note that these differ from the 
jumpers used with a modem. 

The use of acoustic couplers and the special problems 
that can be encountered will be discussed in the design 
example portion of this application note. 

V. DESIGN EXAMPLE: SCOPE OF 
PROJECT 

The example to be described in detail is a utility that 
allows a user to copy any type of 1SIS-II file stored on 
disk from one Intellec Development System to another. 
The utility should require a minimum of hardware 
generation and limited changes to the existing Intellec 
System. The software should be able to transmit files 
and have the ability to verify and recover errors in 
transmission. The user interface should be simple and 
informative enough to satisfy the need for human in- 
teraction in the form of transmission verification and 
error recovery. 

The following design example addresses the idea of 
having a direct hook-up between the two Intellec 
Development Systems. It also describes the idiosyn- 
crasies and design decisions taken to meet the required 
specifications. 

VI. DESIGN EXAMPLE: HARDWARE 
Introduction 

The only hardware modifications necessary for direct 
hook-up of two Intellec Development Systems is 
building a cable to interface the two systems, and coor- 
dinating the various attention control lines. 

Details of Solution 

The choice of which serial port to use is comparatively 
easy because the ISIS-II Operating System does not 
have a software driver for serial channel two (2). Serial 
channel one (1) has a driver and should be reserved for 
supporting various serial I/O devices (i.e., teletype 
terminals). 



Serial channel two is the J3 connector on the connector 
strip of the IOC board (see figure 1). The lines on serial 
channel two conform to the specification for 
EIA-RS232C. 

The lines that are necessary for direct hook-up are: 
PINS - 1 Protective Ground 

2 Transmitted Data 

3 Received Data 

4 Request to Send 

5 Clear to Send 
7 Signal Ground 

The lines on pins 2 and 3 (transmitted-data and received 
data) must be crossed so that the transmit line of one 
port is linked to the receive line of the other port and 
vice versa on the receive line of the original system. This 
causes data being transmitted to go to a line that will 
receive data instead of another transmission line. This 
can be done most logically in the cable as shown in 
figure 2. 

The lines on pins 4 and 5 (Request-To-Send and Clear- 
To-Send) must be tied together to establish that the 
USART are in a mode to receive and transmit data. This 
environment must be established as the 8251 USART 
uses these lines to acknowledge that it is in a mode to 
receive data and is through processing the previous data 
character. In this design the USART is always ready to 
accept data because the software driver processes the 
data character at a high enough rate that there is no loss 
of information. 




SERIAL CHANNEL TWO 



Figure 1 . Rear View of Intellec* Series II 
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The lines can be tied using the wire-wrap jumpers on 
the IOC board as shown in the following diagram. 
The jumper labeled Wl serves to tie the attention 
lines together. This is accomplished by setting the 
jumper to link terminals A to C on jumper group Wl 
(see figure 3). 

Alternatively, these lines could be tied together within 
the cable. This could be done by linking the Request-To- 
Send line of one port to the Clear-To-Send line of the 
other port and vice versa (see figure 4). 

The jumpers on the IOC should be set as follows: 
Jumper Group Jumpers 



W7 



Wl 



A - B 

C - D 

A - C 



W2 A - B 

The necessary hardware modifications are minimal and 
meet the original criterion in that a minimum of hard- 
ware changes are required. Through the features made 
available on the Series-II, the bulk of the changes con- 



sists of building a cable. The internal changes have been 
kept to the level of jumper options with no real hard- 
ware modifications necessary. No printed circuit board 
rework is required. 



Considerations When Using Modems 

In an environment where linking is via the telephone 
network, the use of a modem is required (modulator- 
demodulator— a device that modulates signals transmit- 
ted over communications circuits). The interface of the 
Series II to a modem is slightly different than that of the 
direct hook-up arrangement. 

The fact that serial channel two conforms to the 
specifications for EIA-RS232C makes this I/O port 
especially well suited to supporting a modem. A modem 
that also conforms to this specification requires no 
modification to the control lines within the cable. 

A cable built in order to interface a modem to the 
Series-II should trace pin-to-pin with no crossing of 
signals. 




Figure 3. Input/Output Controller Board 
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Figure 4 



The jumpers on the Intellec System IOC should be set as 
follows: 

Jumper Group Jumpers 
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VII. DESIGN EXAMPLE: SOFTWARE 
Introduction 

Linking two Intellec Development Systems is mainly a 
problem of the interaction between two communica- 
tions programs. 

Basically, two areas need to be addressed: the establish- 
ment of the execution environment, and the actual 
transfer of data to and from the communications 
routines. An additional consideration is the human 
interface between the communications routine and the 
user that invoked it. This includes the generation of 
informative error messages and indicators of data 
transfer assurance. 

Setting the Serial Channel 
Environment 

Establishing the environment begins with the initializa- 
tion of the 8251 USART. The 8251 USART must be 
programmed into the desired mode of operation. The 
monitor program of the Series II initializes the USART 
at RESET time. In some cases, this initialization might 
not suit the desired mode of operation. For instance, the 
baud rate will not provide for efficient transfer of data. 



In programming the 8251 USART a number of deci- 
sions must be made as to the operations mode. The for- 
mat for transfer is to be asynchronous in this example, 
because it is a simpler environment in which to work. A 
choice must also be made among the following: 

XI 

Baud Rate Factor X16 

X64 

5 BITS 

Character Length |> ^'TS 

/ til 1 b 

8 BITS 

NO PARITY 
Parity Control ODD PARITY 

EVEN PARITY 

1 STOP BIT 
Framing Control 1.5 STOP BITS 

2 STOP BITS 

The character length chosen is 8-bits because character 
data will be transferred between systems. 

Parity control is odd in this case. TI.is is arbitrary but 
must be consistent between the communicating systems. 

Baud rate factor and framing control go together, 
because a certain number of stop bits is generally 
accepted for a certain rate. 



Baud Rate Number of Stop Bits 

100 2 

300 1 

600 1 

1200 1 

2400 1 

4800 1 

9600 1 



The baud rate will be chosen via a user-interactive 
medium with the appropriate framing control chosen by 
the communications routine. 
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The baud rate is determined by a combination of fac- 
tors. A 8253 programmable interval timer is used to 
pace the 8251 USART. The 8253 timer determines the 
actual baud rate based on the multiplier factor chosen 
on the 8251 USART. 

The 8253 timer is programmed in two basic steps. A 
control word is sent to the address specified as its port 
address establishing the mode of operation in which the 
8253 timer will function. This also sets up the format of 
the way the count value is to be initialized. The count 
register then needs to be initialized. This is done by 
sending the appropriate BAUD CODE value to the 
count register port. The initialization of the 8253 timer 
determines the rate of the timing pulse used to set the 
pace at which the 825 1 USART will function. This sets a 
range of possible baud rates via the multiplier factor of 
the 8251 USART. The following table shows the 
necessary combinations of 8253 timer BAUD CODES 
and the coordinating 825 1 USART BAUD 
MULTIPLIER values. 



Baud Rate 


Baud Code 


Baud Multiplier 


X Factor 


110 


02BAH 


0CEH 


X16 


300 


0040H 


04FH 


X64 


600 


0020H 


04 FH 


X64 


1200 


001 OH 


04FH 


X64 


2400 


0020H 


04EH 


X16 


4800 


001 OH 


04EH 


X16 


9600 


0000H 


04EH 


X16 



8253 Timer Control Word 

076H - Select Counter 1 

Read/Load least significant byte first, 

then most significant 
Square wave generator 



The port address of the 8253 timer for serial channel 2 is 
0F3H. This is the address by which the CONTROL 
WORD is to be sent. The COUNT REGISTER is 
located at port address 0F1H. This is the address by 
which the BAUD CODE is to be sent. The BAUD 
CODE value must be sent according to the mode 
specified by the control word; that is, least significant 
byte followed by the most significant byte. 

The 8251 USART is programmed by sending the 
USART status port a RESET (see figure 5) followed by 
the appropriate MODE instruction (see figure 6). This 
MODE instruction is analogous to the value specified as 
the BAUD MULTIPLIER because this value contains 
the necessary information to set the other mode-related 
parameters such as parity and framing control. The next 
step in programming the 8251 USART is the sending of 
a COMMAND instruction (see figure 7). This step sets 
the actual operation of the selected format, such as 
enabling transmissions and/or reception of data. 

The 8251 USART has two addresses that a user will 
manipulate: the status port and the data port. Serial 
channel two uses addresses 0F6H for the data port and 
0F7H for the status port. The data port is the port where 
data will be read from or written to. The status port is 
the port where programming information and status of 
the serial line is read/written (see figure 8). 



Serial Channel Two: 

Device Port Address 

8253 Timer 0F1H - Count Register 

0F3H - Control Port 

8251 USART 0F6H - Data 

0F7H - Status 
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BAUD RATE FACTOR 
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Figure 7 



Figure 6 
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Figure 8 
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Asynchronous Protocol 

A protocol is necessary to control the flow of informa- 
tion across the serial line. The lack of standard pro- 
tocols in the asynchronous format allows the tailoring 
of a protocol for a specific usage. 

We chose a protocol where specific signals are sent from 
the transmitter and specific responses are required 
before proceeding to the next step. The following 
characters have been identified to represent certain 

messages: 



Character 

SOH 
EOT 
STX 
ETX 
ACK 
NAK 
RS 



Meaning 

Start Data Link 
Terminate Data Link 
Start of Data Record 
End of Data Record 
Acknowledge 
Negative Acknowledge 
Resend File - Described in 
Detail in Next Section 



The SOH and EOT characters are used to establish the 
data link 

The data record has a specific format: 

CC = character count of data portion in the record 
CS = checksum of data portion in the record 

| STX | CC | . . . DATA . . . | CS | ETX | 

The receiver program expects to receive the data record 
as described. The STX, CC, and ETX characters are 
used to maintain the integrity of the protocol. If these 
characters are not encountered in the correct order, the 
data record cannot be correct. The CS (checksum) 
character is used to maintain the integrity of the data. 

The ACK and NAK characters are used to flag the con- 
dition of the data record. It is through the use of ACK 
and NAK that a handshaking scenario can exist between 
two communications programs. 



Data Transfer Algorithm 

The use of a protocol allows control of the information 
flow across the serial data line. This control is exercised 
by routines that will send and receive data. The use of a 
handshake arrangement allows for the handling of data 
records and for re-handling when necessary. A 
mechanism must be provided for sending/resending and 
receiving records, knowing that environmental idiosyn- 
crasies may cause errors in transmission. 

The transmitter will send an SOH (Start-Data-Link) 
character until an ACK is received. The receiver will 
send this ACK when it receives the SOH. Timing syn- 
chronizing the protocol from the standpoint of 
transmissions to responses must be established. 
Transmission of data records begins when the transmit- 
ter receives the ACK from the receiver. 

After receiving the initial ACK the transmission routine 
sends a data record, and the receiver accepts the data. 
The receiver will parse the data record starting with 
verification of the STX (Start-of-Text) character to 
signify the beginning of the data record. This is fol- 
lowed by a character that has the character count of the 
actual data portion of the record. This character count 
is used to determine how much data is to be collected 
before the next control character. The character follow- 
ing the data represents a summation of the characters 
(checksum) calculated by the transmitter. The record is 
terminated by an ETX (End-of-Text) character signify- 
ing the end of this particular record. 
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The checksum value is calculated by the transmitter 
as the characters are being sent. A corresponding 
checksum is calculated by the receiver as characters are 
being read. When the transmitter's checksum is read, it 
is compared to the checksum generated by the receiver. 
If the two values are the same, an ACK is returned to 
the transmitter and another record is sent. If the two 
values do not agree, an error has been encountered, the 
data record is not valid, and a NAK is sent. The 
transmitter will repeat record if a NAK is received. 

This scenario will continue until the last record is sent, 
at which time the transmitter will send a EOT signifying 
the end of the transmission. 

Through the verification of the various protocol integ- 
rity values (i.e., STX) and the sequence of ACK/NAK 
with sending and resending of the data record, the integ- 
rity of the data transmission can be reasonably sure. 

An additional integrity check is made by the parity bit 
which is supplied and checked by the 8251 USART. An 
error status can be read to verify integrity at this level of 
transmission. (See figure 8.) 

Various parameters need to be considered in the data 
transmission phase. The possibility of error handling 
must be considered very seriously. The chance that a 
transmission error is unresolvable can occur. To prevent 
an infinite loop situation where one is constantly send- 
ing and resending, parameters for the number of retries 
to perform must be considered. The size of the data 
record also has an effect on the probability of error and 
the number of retries. The numbers chosen for the 
design example were: 



DATA RECORD COUNT = 128 CHARACTERS 
RETRY COUNT =15 



These numbers are purely arbitrary and under given cir- 
cumstances, could either be higher or lower. The lower 
the character count, the higher the probability of an 
error occurrence for that record. This raises the 
overhead per character however, so tuning of these 
values should be determined depending on the execution 
environment. 

The ISIS-II operating system provides mechanisms for 
accessing disk files. These mechanisms come in the form 
of various sytem calls to open, close, read, and write to 



these files. The use of these system calls completely frees 
the communications program from overhead require- 
ments for file management tasks. 

One way to handle files being transmitted or read is 
through the use of a memory buffer. This buffer holds 
the file during transmission and/or upon reception. 
Given a large file to transmit, the file is blocked into the 
buffer piece by piece. Instead of record by record 
manipulation, a buffer and pointers allows easy move- 
ment within the file. 



This scenario for establishing the data link and subse- 
quent transfer of data is one of many ways to do 
elementary inter-system communications. Less error 
checking may be necessary depending on the environ- 
ment. A very large data record could also be considered. 
On the other hand given a very hostile environment 
more error checking may be necessary and a very small 
data record could be used. 



Considerations When Using Modems 

The use of modems to interface the telephone network 
presents a variety of circumstances that do not exist in 
the direct hook-up environment. 

The main concern is the possibility of the phone line 
being terminated because of some mechanical break 
down in the phone system. Modems supply a carrier 
signal to signify that they are hooked-up together. If a 
carrier signal is confirmed by both modems, a status 
signal is supplied to a line on an RS232C interface. This 
is the Data-Set-Ready (DSR) line (PIN 6). The 8251 
USART has a status bit in its status register that can be 
checked by a program to verify whether or not the 
modems are communicating. 

Another consideration is the problem of the maximum 
transfer rate of the telephone line. When using 
acoustically coupled modems another constraint is 
presented, because most acoustically coupled modems 
operate at a maximum of 300 baud. 

The use of modems allows the two development systems 
to exist anywhere there is a telephone. This increases the 
flexibility of the idea of file sharing. 
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User Interface 

The user interface is a very important part of the 
usefulness of any utility. 

This type of utility will inherently require the specifica- 
tion of source and destination files. The ISIS-II 
operating system allows for an easy method of fetching 
parameters. These parameters can be received from the 
console device by way of ISIS-II system calls oriented 
specifically for input and output to the console. 
Through the use of utilities, a user has an ISIS-II like in- 
terface. (A detailed description of these system calls can 
be found in the ISIS-II User's Guide, manual order 
number 9800306. 

In the event that two development systems are widely 
separated it is possible that one system will be unable to 



respond to the other. Therefore, various time-out loops 
must be included at stategic locations of the transmit 
and receive loops. The amount of time one should wait 
is highly variable and should be based on the 
circumstances. 

In this design example as part of the loop for transfer 
and receiving data, the two routines output a signal of 
confirmation to the console device. 

VIII. CONCLUSION 

This application note is intended to give an elementary 
view of inter-system communications. The example sup- 
plied is a simple and functional methodology for imple- 
menting a utility that will allow transfer of files from 
one Intellec Series II Development System to another. 

The program (design example) described here is avail- 
able through the Insite Users Library. 
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Simplified Transmission Algorithm 




Q CONTINUE ^ 



SEND STX 




SEND COMPLIMENT 
OF ACCUMULATOR 



SEND ETX 



WAIT FOR RESPONSE 
FROM RECEIVER 



T 



•OiESPONSE^-*- 


ADVANCE FILE 




POINTERS 




JUTak 




RESET FILE POINTERS 







121558-10 
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Simplified Reception Algorithm 



Q START J 



YES 



^CONTINUE^ 




ERROR 
ROUTINE 



GET CHAR 


RECORD COUNT 




CNT = 0^>- 

NO 


•^RECORD 


GETCHAR 


DATA 






RECORD CNT-1 






ACC = AC 


C + CHAR 



GETCHAR 



ERROR 
ROUTINE 




121558-11 
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Data-Link Algorithm 



TRANSMITTER 




^CONTINUE^ 



Q STARt""^ 



CHECK FOR 
INPUT 




SEND ACK 



"^CONTINUE*^ 
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CODING EXAMPLES 

Pl/M-80 COMPILER 



ISIS-II PL/M-RO V3.1 COMPILATION OF' MODULE SEND2 

OBJECT MODULE PLACED IN : Fl i SEND? ,OB J 

COMPILE? INVOKED BY: PLMRO :F1 SSf ND2.PLM DEBUG 



2 
3 
4 

5 
6 

7 
8 

9 
10 
11 

12 
13 

14 



15 



1 
2 

2 

1 

2 

1 

2 

1 

2 
2 

1 

2 



SEND2: DO; 

PUTSCHAP: PPOCFDURF (CHAF ) EXTERNAL! 

DFCLAPE CHAP P.YTF; 
END PUTSCHAP; 

getschap: PPOCFD'JPF bytf fxtepnal: 
end getschar; 

staptsupsmessacf : fpocedupe fxtepnal; 
end staptsupsmessacf: 

transm1tsmessagf: pfocedupe ( i ndfx ) fxtepnal; 

dfclape index pytf; 
end tp ansmitsmfssagf ; 

tpxnft: procedure byte extfrnal: 
enc tpxnft; 

declapf versflag pytf externals 

******************************************** ***************/ 



xmit: 



PROCEDURE (FN AMES PTR .B'JFSPTP ,FCri)NI . BCOUNT . ERR ) PUBLIC; 



/* 
/* 
/♦ 
/* 
/* 
/* 
/* 
/* 
/* 
/* 



THIS PROCEDURE TRANSMITS THE FILE PFCOPD «Y RECORD (126 CHARS) 
ACROSS A COMMUNICATIONS L T N E 



EX T T MCfJES 

EPPOP = 

FPPOP = 

EPPC'P = 

FRPPP = 

EPPOP = 

FPPrp = 



APE 



1 

2 

3 

4 

5 



AS 



FOLLOWS : 

NORMAL 
A PC P 7 : 
TFPw : 
nopfs : 
TIMOUT 



RETURN 

MODEM OFF 
ABNORMAL TRANSMISSION 

NO CHAPS PECFTVED 
: UNABLE TO SEND CHAPS 



BADT: EPPOP IN TRANSMISSION 



*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
*/ 
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PL/M-80 COMPILER 



SEJFCT 

16 2 DECLARE FNAMESPTP ADDRESS ; 

17 2 DECLARE BUFSPTP ADDRESS; 

18 2 DECLARE FCOUNT ADDRESS; 

19 2 DECLARE BCOUNT ADDRESS; 

20 2 DECLARE ERR ADDRESS; 



21 
22 
23 



DECLARE FILENAME 
DECLARE BUFFER 
DECLARE ERROR 



BASED ENAMFSPTP (122) BYTE ; 
BASED BUFSPTP (35000) BYTE; 
RASED EPR ADDRESS; 



24 
25 
26 
27 
28 



DFCLAPE 
DECLARE 
DECLARE 
DECLARE 
DECLARE 



FILFSPTP 

PETPYSPTP 

AFTNSIN 

PECSCNT 

T 



ADDRESS ; 
ADDRESS ; 
ADDRESS ; 
ADDRESS; 

address; 



29 



DFCLAPE J 



BYTE! 



30 
31 



DECLARE CHKSACC BYTE; 
DECLARE SEMAPHORE BYTE; 



32 
33 
34 
35 
36 
37 
38 



DFCLAPE STX 

DEC! APE FTX 

DECLARE EOT 

DFCLAPE RS 

DECLARE NAK 

DECLARE ACK 

DECLARE YES 



BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 



DATA(02H); 
DATA(03H) ; 
DATA(04H) ; 
DATA(IEH) ; 
D A T A ( 1 5 H ) ; 
DATA(06H) ; 
DATA (OEFH ) ; 
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PL/M-80 COMPILER 



SEJECT 

/* CHECK STATUS OF COMMUNICATIONS L INF */ 

39 2 DO CASE TPXNET; 

40 3 

41 3 GO TO ABORT ; 

42 3 GO TO terminate; 

43 3 GO TO NOSRFSPrUJSE; 

44 3 GO TO TIMESOUT: 

45 3 end; 

/* INITIALTZF CHECKSUM ACCUMULATOR »/ 

46 2 FLOOP: CHKSACC = 0; 

/* SFMD FILENAME PFCOPD PPECEEDED BY ST APT OF *■/ 
/♦ TRANSMISSION CHAPACTFR */ 

47 2 CALL PUTSCHARCSTX) ; 

48 2 CALL PUTSCHAR(FCPUNT+2); 

49 2 DO I = TO FCOUNT; 

50 3 CALL PDTSCHAP fFILENA'^Ed ) ) J 

51 3 CBKSACC = CHKSACC + F I LEN AME ( I ) ' 

52 3 end; 

/* SEND CHECKSUM */ 

53 2 CALL PUTSCHAP(-CHKSACC); 

/* SEND END OF TRANSMISSION CHARACTER */ 

54 2 CALL PUTSCHAR(FIX ) ; 

/* WAIT FOP RESPONSE EROV RECEIVFP */ 

/* CHECK FOP VALIDITY OF TRANSMISSION */ 

55 2 SFMAPHOPE = GFTCHAF; 

56 2 IF SF M APHOPF = NAK THEN GO TO FLOOP ; 

58 2 IE SEMAPHORF <> ACK THEN GO TP BADTPANS; 

/* SEND THE 'START-UP' MpSSAGE Tn THE :C0:*/ 

60 2 CALL STAPTSUPSMFSSAGF ; 

/* SET UP POINTFPS FOP FILE TRAVERSAL */ 

61 2 FILESPTR = 0: 

62 2 PFTPYSPTP = 0; 

63 2 .7 = 0; 

/* SEND FILE PFCORD BY PECOPO WITH PETPTES */ 

64 2 DO WHILE (BCOU^T <> FILESPTR); 

/* SEND A BYTE-COUNT */ 

65 3 PECSCNT = BCOUNT - FILESPTR ; 

66 3 IF PECSCNT > 128 THEN 

67 3 RECSCNT = 128; 

68 3 CHKSACC = 0; 

69 3 CALL PUTSCHAP(STX); 

70 3 CALL PUTSCHAP(RECSCNT+1 ); 

71 3 no WHILE (PFCSCNT <> 0) AND (PCOUNT <> FILESPTR); 

7 2 4 CALL PUTSCHAP(PUFFER(EILESPTP)); 

73 4 CHKSACC = CHKSACC + BUEFFP C FIl E SPTP ) ; 

74 4 FILESPTR = EILESPTP + IS 

75 4 PECSCNT = PECSCNT - Ij 

76 4 END; 

77 3 CALL PUTSCHAP(-CHKSACC); 

78 3 CALL PUTSCHAP(FTX) ; 

PL/M-80 COMPILER 
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PL/M-80 COMPILER PAGF 
SEJECT 

/* CKFCK FOR VALIDITY OF TRANSMISSION */ 

79 3 SEMAPHORE = GETCHAR; 

80 3 IF SEMAPHORE = ACK THEN PETRYSPTP = FILESPTR; 

82 3 ELSE TF SEMAPHORE = NAK THEN FILESPTR = RETRYSPTP; 

84 3 ELSE GO TO F< A D T R A N S ; 

85 3 CALL TPANSMITSMFSSAGE(J) i 

86 3 J = J + 1 ; 

87 3 IF J > 11 THEN 

88 3 J = ; 

89 3 END; 

/* SEND 'END OF TRANSMISSION* CHARACTER */ 

90 2 IF VEPSELAG = YES THEN 

91 2 CALL PUTCHAPCRSK- 

ELSE 

92 2 CALL PUTSCHAP(FOT); 

/* FXIT MODES */ 

93 2 NORMAL: ERROR = 0; 

94 2 PFTHPN; 

95 2 abort: fpror = i; 

96 2 RETURN; 

97 2 TERMINATE: ERROR = 2; 

98 2 RETURN ; 

99 2 NOSPESPONSE: ERROR = 3; 

100 2 RETURN ; 

101 2 timfsout: error = 4; 

102 2 rfturn; 

103 2 radtrans: error = 5 ; 

104 2 RETURN ; 

105 2 END X>'IT: 

106 1 END SEND2; 



MODULE information: 

CODE AREA SIZF = 0211H 529D 

VAPIABLF AREA SIZE = 0017H 23D 
MAXIMUM STACK SIZF = 0006H 6D 
163 LINES READ 
PROGRAM EPPOP(S) 

END OF PL/M-80 COMPILATION 
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PL/M-80 COMPILER paGf " 1 

ISIS-II PL/M-RO V3.1 COMPILATION OF MODULE RECV2 

OBJECT MODULE PLACED IN : El : RFCV2 . OBJ 

COMPILER INVOKFD BY: PLM80 : F 1 : PECV2 . PLM DEBUG 



1 RFC V 2 : DO! 

/^*t************* ********************************** ******* ^t*******/ 

2 1 DECLARE VERSELAG BYTE EXTERNAL; 

3 1 CLOSE : PROCEDUPF ( AFTNPTP .STATUS) EXTERNAL ; 

4 2 DECLARE ( AFTNPTP . STATUS) ADDRESS ; 

5 2 END CLOSE; 

b 1 GETSCHAP: PROCFDUPF HYTF FXTERNAL; 

7 2 END GETSCHAR; 

8 1 OPEN: PPOCEDUREUETNPTP. FILE. ACCESS. MODE. STATUS) EXTERNAL; 

9 2 DECIAKE (AFTNPTP . FTLF. . ACCESS .WODF . ST ATUS) ADDRESS; 

10 2 END OPEN; 

11 1 PUTSCHAP: PPOCEDURF (CHAP) EXTERNAL} 

12 2 DECLARE CHAR PYTF; 

13 2 END PUTSCHAP; 

14 1 STAPTSUPSMESSAGF: procedure external; 

15 2 END STAPTSUPSMFSSAGE ; 

16 1 TRANSMITS MESSAGF : PPOCEDUFE (INDEX) FXTFPNAL; 

17 2 DKCI APE I N DFX B Y T F ; 

18 2 END TPANSMITSMFSSAGE." 

19 1 VvPTTE: PPOCEDf>RF(AFT\PTP. BUFFER. COUNT. STATUS) EXTERNAL ; 

20 2 DECLAPE ( AFTNPTP . HUFFER . COUNT . STATUS ) ADDRESS; 

21 2 END HHI : T£> 

/t^^^^t************************************** *************** *******/ 

22 1 RCVP: PROCEDURE ( FN A MF SPTF . BUE S PTP , EPP ) PUBLIC; 

/* THIS PROCEDURE PERFORMS THE FUNCTION OF BUILDING AN IN MEMORY */ 

/* PUFFER FROM COMMUNICATIONS LINE INPUT AND THEN WRITES THIS */ 

/* BUFFER TO A DISKETTE FILE DEFINED BY THE TRANSMITTING ROUTINE. */ 

/* */ 

/* EXIT MODFS ARE AS FOLLOWS : */ 



/* FRFCP = 

/* EPPOP = 1 

/* EPPCP = 2 



NOPMAI EXIT */ 
ABNORMAL TERMINATION * / 

ERROR IN TRANSMISSION */ 
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PL/M-80 CCMPHER 



page 



23 
24 
25 



SFJFCT 

DFCLAPE NU^SRETFY LITERALLY '15*; 

DECLARE USAPT2SSTATUSSPORT LITERALLY '0F7H'; 



DECLARE EPRSMASK 



LITERALLY '38H'; 



26 
27 
28 



DECLARE FNAMESPTP ADDRESS; 
DFCLAPF BUFSPTP ADDRESS; 
DFCIAPE ERR ADDRESS; 



29 
30 
31 



DECLARE FTLFMAMF 
DFCLAPF BUFFER 
DECLARE ERROR 



RASED FNANFSPTP (122) BYTE; 
BASED BUFSPTP (35000) BYTE; 
BASED EPP ADDRESS; 



32 
33 
34 



DECLARE FILFSPTR ADDRESS; 
DFCIAPE PETRYSPTP ADDRESS; 
DFCIAPE AFTNSni'T ADDPESS; 



35 
36 
37 
38 
39 
40 



DECLARF RFTPY BYTE; 

DFCLAPF CHKSACC BYTE; 

DECI APE CHAR BYTE; 

DtCIAPE RECSCNT BYTE; 

DECLARE BADSCBARSF LAG BYTE; 

DECLARE FPPriRSELAG BYTE; 



41 



DFCLAPE J 



RYTF 



42 
43 
44 
45 
46 
47 
48 
49 



DFCI APE 
DFCLAPE 
DFCLARE 
DFCI APE 
DFCLARE 
DECLARE 
DECI ARE 
DFCLAPF 



STX 
FTX 
rriT 
PS 

ACK 
N A K 
YES 
NO 



BYTE 
BYTE 
RYTF 
BYTE 
BYTE 
BYTE 
BYTE 
BYTE 



D A T A ( 2 H ) ; 
DATAC03H) ; 
DATA ( 04p ) ; 
D ATA ( 1 FH ) ; 
DATA ( 06H ) ; 
DATA ( 1 5H ) ; 
DATA ( OFFH ) 
DATA COOH) ; 
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PL/M-80 COMPILER PACF 3 

SEJECT 

/* OPEN DESTINATION FILE AS SPECIFIED BY CALLING ROUTINE */ 

50 2 CALL OPEN( . AFTNSOUT. .FILENAMF. 2.0. .ERROR); 

51 2 IF FPPOP <> THEN GO TO TERMINATF." 

/* INITIALIZE FILE TRAVERSAL POINTERS */ 

53 2 FILESPTR = 0; 

54 2 PETPYSPTP = 0; 

55 2 PFTPY = NUMSPFTPY; 

56 2 CHKSACC = 0; 

57 2 BADSCHARSFLAG = 0; 

58 2 EPPOPSFLAG = 0; 

59 2 J = : 

/* SFND A 'COMMUNICATIONS BEGUM' w F S S A G E TO THE :CO: */ 

60 2 CALL STAPTSUPS^FSSAGF; 

/* SEND AN ACKNOWLEDGE FOR THE F I LEN A M E PFCORD */ 

61 2 CALL PUTSCHAP(ACK); 

/* SEND FOR THE STX CHARACTER */ 

62 2 CHAR = GET SC HAP; 

/* BUILDS MEMORY BUFFER WITH COMMUNICATIONS INPUT */ 

/* UNTIL END OF TRANSMISSION CHARACTER IS READ */ 

63 2 DO WHILE (THAR <> EOT) AND (CHAP <> RS); 

64 3 IF CHAP <> STX THF N 8 AD SCH APSFL AG = OEFH; 

66 3 FECSCNT = GfTSCHAP; 

67 3 CHAP = GFTSCRAP; 

68 3 DO WHTLF (RECSCNT <> 0); 

69 4 BUFFER (FII ESPTR ) = CHAP; 

70 4 FILESPTP = FILESPTP + 1; 

71 4 RECSCNT = RECSCNT - 1; 

72 4 CHKSACC = CHKSACC + CHAP; 

73 4 CHAR = GFTSCHAP; 

74 4 END; 

75 3 IE CHAR <> ETX THEN B AD SCH A RS FL AG = OEFH; 

77 3 IE ( rNPUT(HSART2SSlATUSSP0PT) AND FRRSMASK) <> THEM 

78 3 do; 

79 4 eppopsflag = oefh; 

80 4 OUTPUT (USAPT2SSTATUSSP0PT ) = 37H; 

81 4 emd; 

/* take care of checksum in buffer */ 

82 3 FILESPTP = FILESPTP - lj 

83 3 CALL TPANS^ITSMESSAGE(J); 

84 3 J = J + 1 ; 

85 3 IE J > 1 1 THFN 

86 3 J = 0; 

87 3 IE fCHKSACC <> 0) PR (BADSCHAPSFLAG <> 0) OP (EPPORSFLAG <> 0) THEN 

88 3 DO; 

89 4 FILFSPTP = PETPYSPTP; 

90 4 RETRY = RETRY - 1 ; 

91 4 IF RFTPY = THEN GO TO BADTPANS; 
93 4 CALL PUTSCHAR ( NAK) ; 
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PL/M-80 COMPILER 



PAGE 



4 



94 


4 


95 


3 


96 


4 


97 


4 


98 


4 


99 


4 


1 00 


3 


101 


3 


1 02 


3 


103 


3 


104 


3 


1 05 


2 


106 


2 


107 


2 


108 


2 


109 


2 


111 


2 


112 


2 



114 2 

115 2 

116 2 

117 2 

118 2 

119 2 

120 2 

121 1 



END J 

ELSE DO: 

PFTRYSPTP = filesptr: 
RFTPY = rums retry; 
cai l putc har(ack) ; 
end; 

CHKSACC = 0; 
B ADSCH ARSELAG = 0; 
F PPOPSFL AG =0; 
ChAP = GFTSCHAP; 
END! 

IF CHAP = RS THEN 

VEPSFL AG = ¥FS! 
ELSF 

vepsfl ag = w: 

/* write cdmplftf puffer if) disk */ 

call fcrite(aetnsot!t. . puffer . ft le s pt p . .error) ; 
if error <> then go to terminate: 

call c l s e ( a f t n s f j u t . . f p p p ) : 

if fppor <> thfn go to terminate; 

/* fxit modes */ 

normal: fppop = 0; 

RETURN; 

TERMINATE: ERROR = ] : 
RETURN ; 

BADTRANS: ERROR = 2; 
PFTUPN ; 

END PC VP; 

END PECV2; 



4 



module information: 



CODE AREA SIZE = 01EAH 

VAPIABLF AREA SIZE = 001 3R 

MAXIMUM STACK SIZE = 000RH 
172 LINES RF AD 



490P 
19D 
8D 



PROGRAM EPPOP(S) 



END OF PL/M-80 COMPILATION 
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PL/M-80 COMPILER CHANGE BAUD PATE FOP SEPIES-II 



PAGE 



ISIS-II PL/M-80 V3.1 COMPILATION OF MODULE BAUDPT 
OBJECT MODULE PLACED IN : F 1 : B A UDPT . OB J 
COMPILER INVOKED BY: PLM80 : F 1 : B A UDPT . PLM 



SPAGEWIDTH(SO) DEBUG TITLF t 'CHANGE BAUD PATE FOP SEPIES-II') 

1 BAUDPT: DO; 

/* THIS MODULE CONTAINS THE PROCEDURE ' BAUDSPATE ' 
THAT CHANGES THE BAUD PATE CE SERIAL CHANNEL 1 
ON A SEPIES-II DEVELOPMENT SYSTEM AND CHAPEOL FUR 
COMPARING 2 BYTE STRINGS. IT ALSO CONTAINS 
STATCHK TO CHECK FOP TSIS EPRORS. */ 

2 1 WRITE: PROCFDURF C AFT . BUF. CNT , STAT) EXTERNAL: 

3 2 DECLAPF (AFT. BUF , CNT, STAT) ADDRESS; 

4 2 END WRITE; 

5 1 READ: PROCEDURE (AFT. BUF. CNT. ACT. STAT) EXTERNAL; 

6 2 DECLARE f AFT . BUF. CNT. ACT. STAT) ADDRESS ; 

7 2 END READ; 

8 1 EPPCJP: PROCFDURF (EPP) EXTERNAL: 

9 2 DECLARE EPP ADDRESS; 

10 2 END ERROR; 

11 1 EXIT: PROCEDURE EXTERNAL; 

12 2 END EXIT; 
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PL/M-80 COMPILER CbAMGE BAUD PATE FOP SEP1ES-IT PAGE 2 



SEJECT 

13 1 STATCHK: PROCEDURE (EPRNUM) PUBLIC; 

/* THTS PPOCEDUPE CHECKS FOP AN 
ISIS EPPOP. THEN PRINTS IT AND 
RETURNS TO ISIS IE THEP IS ONE. */ 

14 2 DECLARE FPPNUM ADDRESS; 

15 2 IE E RPNUM > THEN 

16 2 DO; 

17 3 CALL FRROR (EPRNUM); 

18 3 CALL EXTT; 

19 3 end; 

20 2 END STATCHK ; 
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PL/M-80 COMPILER CHANGE BAUD PATE FOP SEPIES-TI P6GF. 
SEJECT 

21 1 CHAPEOL : PROCEDURE (STRG1PTP. STPG2PTP. LEN) BYTE PUBLIC; 

/* COMPARISON OF TWO BYTF STRINGS. 
RETURN 1 IF =. 
RETURN IF STPG1 < STRG2 . 
RETURN 2 IF STRG1 > STPG2 */ 

22 2 DECLARE 

(STPG1PTP. STPC2PTR) ADDRESS. 
STPG1 RASED STPG1PTP (1) BYTF. 
STRG2 RASED STPG2PTR (1) BYTE . 
LEN BYTE. 
I BYTE: 

23 2 1=0; 

24 2 DO WHILE (STPGim = STRG2 ( I ) AND I < LEN); 

25 3 1=1+1: 

26 3 END ; 

27 2 IF I = LEN THEN PFTUPN ii 

29 2 IF STRG1 ( 1 1 < STPG2m THEN RETURN 0; 

31 2 RETURN 2; 

32 2 END CHAPEOL; 
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PL/M-80 COMPILED CHANGE BAUD PATE FOP SEPIES-II PAGE 



SEJECT 

33 1 baudspatf: procedupe public; 

/* this procedure reads in the desired 
baud pate from the console & then 
changes the pate. */ 

34 2 DECLAPE 

VALTDSBAUDSPATES (*) BYTE DATA 
('110', ODH. 
'150*. ODH. 
'300*. ODH . 
'600', ODH. 
'1200', 
'2400 ' , 
'4800' , 
'9600' ) . 

BAUDSCODFS (*) ADDRESS DATA 
( 2BAH . 
80H . 
40H . 
20H . 
10H. 
20H. 
10". 
08H ) , 

BAUDSMULTS ( * 1 R Y T F DATA 
COCEH . 
4FH . 
4FH . 
4FH . 
4FH , 
4FH. 
4FH. 
4FH ) ; 

35 2 DECLARE 

BAUDSPROMPT (*1 BYTE DATA 

(ODH. OAH. AH , ' EMTEP BAUD PATE FOP SERIAL CHANNEL ' . 
'1(0 FOR L T ST OF RATES) : ' ) . 

FNDSMSG (*) BYTE DATA 

(ODH. OAH. 'BAUD RATE INITIALIZATION COMPLETED. '. 
ODH .OAH) ; 

36 2 DECLARE 

(I .BAUDSRATESINDFX ) BYTE. 
(STATUS. ACTUAL ) ADDRESS. 
BAUDSIMPUT (81 BYTE; 
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PL/M-80 COMPILER CHANGE BAUD RATE FOP SEPIES-II PAGE 

SEJECT 

37 2 PECLAPE 

AS LITERALLY 'LITERALLY'. 

CNTLSPOPTS8253 AS '0F3H*. 
COUNTSPEGS8253 AS '0F1H'. 
CNDSPOPT S 8 2 51 AS '0F7H'. 

CONTROLSBYTES8253 AS *76H'. 
PESET$8251$TOSMODF AS '40H*. 
FNABLFS8251 AS '27H*. 

INVALIDSBAUDSPATE AS ' 7FH ' ; 
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PL/M-80 COMPILER CHANGE BAUD FATE FOP SERTFS-IT PAGE 

SEJFCT 

38 2 PRINTSBAUDSPATES : PROCEDURE; 

/* THIS PROCEDURE PRINTS A LIST OF 
VALTD BAUD RATES ON THE CONSOLE. IT 
DOES NOT NEED TO BE MODIFIED IF THE 
NUMEEP OP VALUES OF VALID BAUD RATES 
CHANGE. */ 

39 3 DECLARE 

RATES MSG (*) BYTE DATA 

(ODH. AH , 'VALID BAUD RATES ARE '). 
LEN BYTE. 

LTSTSBUF (10) BYTE; 

40 3 CALL SPRITE CO, . RATE'S MSG . LENGTH ( P A T F S MSG ) . .STATUS); 

41 3 CALL STATCHK (STATUS); 

42 3 DO I = TO LENGTH(VAITDSBAUDSRATES)-4 BY 4; 

43 4 IE VALIDSBAUDSPATES( T+3) = ODH THEN LEN = 5; 

45 4 ELSE LEN = 6; 

46 4 CALL MOVF (LEN-2. . V AL I D S B AUD S P A TES ( T ) . .LISTSHUE); 

47 4 IE 1 = LENGTH (VALIDSBAUDSRATES)-4 THFN 

48 4 DO; 

49 5 LISTSBUF (LEN-2) = *.'; 

50 5 LEN = LFN - !; 

51 5 END; 

52 4 ELSE DO; 

53 5 LISTSBUF (LFN-2) = ','; 

54 5 LISTSBUF (LEN-1) = * '; 

55 5 end ; 

56 4 CALL WPTTF (0. .LISTSHUE, LEN. .STATUS) ; 

57 4 CALL STATCHK (STATUS); 

58 4 end; 

59 3 END PRINTSBAUDSPATES; 
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CHANGE BAUD PATF FOP SERIES-II 



PAGE 



SEJECT 



60 

61 

62 
63 

64 
65 

66 
67 
68 
69 

70 
71 

72 



73 
74 
75 

76 
77 
78 

79 
80 

81 

82 

83 



2 

2 

3 
3 

3 
3 

3 
4 
4 
4 

3 
3 



2 
2 
2 

2 
2 
2 

2 
2 

2 

2 

1 



/* READ IN PA I'D PATE FROM OPERATOR 
AT CONSOLE */ 

BAUDSRATESTNDEX = I N V A L t D SB AUDSR A TE : 

DP NHTLE BAUDSRATESTNDEX = T N V AT, T D SB AIJDSP ATE : 

CAM, WRITE (0. .PAUDSPPOMPT. LENGTH ( BAUDSPROMPT ) . .STATUS); 
CALL STATCHK (STATUS) 7 



CALL READ CI. .PAUDSINPUT. 20, . ACTUAL , 
CALL STATCHK (STATUS) : 



.STATUS) ; 



DO I = TO LFMGTH(VALIDSBAUDSPATFS)-4 BY 4; 
IE CHAPFOL ( .RAUPSINPUT. . VAL I D SB A UDS R ATES ( I ) 
BAUDSRATESI^'DEX = 1/4; 

end; 

II BAUDSRATESI^DEX = I N V AL T DSB AUD SP ATE THEN 
CALL PRTNTSPAUDSPATES; 



4) THEN 



end; 



/* OUTPUT TO INTERVAL TIMFP (8253) AND 
USART (P251) THE PROPER COMMANDS */ 



OUTPUT (CNTLSPOPTS8253 ) 
OUTPUT (COUNTSREGS8253 ) 
OUTPUT (COUNTSPEGS8253 ) 



CONTROL S BYTES 8 253; 

LOW (BAUDSCOnFS(BAUDSRATESINDEX) ) ; 
H I GH(BAUDSCODES(B AUDSR ATES INDEX ) ) ; 



OUTPUT (CMDSPOPTS8251) = RESETS 8 2 5 1 STO SMODE ; 

OUTPUT (CMOSPORTSR251 ) = BAUDSMULTS (BAUDSRATESTNDEX); 

OUTPUT (CMPSPORTS«251 ) = EN ABLES 8 2 5 1 ; 

CALL WRITF (0. .ENDS MSG. LENGTH ( END SMSG ) . .STATUS); 
CALL STATCHK (STATUS); 

pfturn; 
end raudspate; 
end baucpt; 



MODULE INFORMATION: 

CODE APFA SIZE 
VARIABLE AREA SIZE 
MAXIMUM STACK STZE 
217 LINES READ 
PROGRAM EPFOP(S) 



02F8H 
0021H 
0008H 



760D 
33D 
8D 



END OF PL/M-80 COMPILATION 
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